home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / FINRPRT.SAB < prev    next >
Text File  |  1991-11-13  |  831b  |  38 lines
  1. set null "n/a"
  2. set messages off
  3. set error messages off
  4. label start
  5. clear all v
  6. cls
  7. display cp.dis
  8. write "FNRPRT.SAB" at 2,36
  9. write "Financial Report" at 6,32
  10. set v own to ""
  11. set v whch to ""
  12. fillin own using "Enter The Owner For This Report ( or <ESC> )  " at 12,5
  13.   if own = "" then ; goto end ; endif
  14. label ask
  15. fillin whch using "(R)egular Or (C)ontract List  " at 14,5
  16. if whch = "r" then ; goto r ; endif
  17. if whch = "c" then ; goto c ; endif
  18. write "                                           " at 14,5
  19. goto ask
  20. label r
  21. output printer
  22. print fnancial sorted by add.code where prime = "X" and oner = .own
  23. new page
  24. output screen
  25. goto stopper
  26. label c
  27. out pri
  28. print fnancial sorted by add.code where prime = "L" and oner = .own
  29. new page
  30. out scr
  31. label stopper
  32. cls
  33. goto start
  34. label end
  35. cls
  36. return
  37.  
  38.